home *** CD-ROM | disk | FTP | other *** search
/ Aminet 7 / Aminet 7 - August 1995.iso / Aminet / comm / cnet / randchat.lha / RandChat.REXX < prev   
OS/2 REXX Batch file  |  1993-12-31  |  251b  |  25 lines

  1. /* RandChat by Wolverine / DMI */
  2.  
  3. options results
  4.  
  5. parse arg chat
  6.  
  7. sf = 'sendfile'
  8. MaxFiles=4
  9. path = 'pfiles:ChatText/'
  10.  
  11. main:
  12.  
  13. num = random(1,MaxFiles,time(s))
  14.  
  15. if chat = 'chat' then do
  16.  
  17. sf path||'chat.'num
  18. end
  19.  
  20. else do
  21. sf path||'end.'num
  22. end
  23.  
  24. exit
  25.